%    Two sample definitions for the kernel hooks to help a bit with
%    tracing.
%    \begin{macrocode}
\newcounter{paracnt}
\def\@kernel@before@para@begin{%
  \stepcounter{paracnt}%
  \typeout{PARA: \arabic{paracnt} start
    (\@currenvir\space level\on@line)}%
}
\def\@kernel@after@para@end  {%
  \typeout{PARA: \arabic{paracnt} end \space\space
    (\@currenvir\space level\on@line)}%
  \addtocounter{paracnt}{-1}%
}
%    \end{macrocode}
%
